home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Files, comparing the contents of two < prev    next >
Encoding:
Text File  |  1997-07-15  |  1.2 KB  |  34 lines

  1. 'Description: Compares the content of two files
  2.  
  3. Open "file1" For Binary As #1
  4. Open "file2" For Binary As #2
  5. issame% = True
  6. If LOF(1) <> LOF(2) Then
  7.     issame% = False
  8. Else
  9.     whole& = LOF(1) \ 10000         'number of whole 10,000 byte chunks
  10.         part& = LOF(1) Mod 10000        'remaining bytes at end of file
  11.         buffer1$ = String$(10000, 0)
  12.         buffer2$ = String$(10000, 0)
  13.         start& = 1
  14.         For x& = 1 To whole&            'this for-next loop will get 10,000
  15.         Get #1, start&, buffer1$      'byte chunks at a time.
  16.         Get #2, start&, buffer2$
  17.         If buffer1$ <> buffer2$ Then
  18.             issame% = False
  19.                 Exit For
  20.         End If
  21.         start& = start& + 10000
  22.         Next
  23.         buffer1$ = String$(part&, 0)
  24.         buffer2$ = String$(part&, 0)
  25.         Get #1, start&, buffer1$        'get the remaining bytes at the end
  26.         Get #2, start&, buffer2$        'get the remaining bytes at the end
  27.         If buffer1$ <> buffer2$ Then issame% = False
  28.         End If
  29.         Close
  30.         If issame% Then
  31.             MsgBox "Files are identical", 64, "Info"
  32.         Else
  33.                  MsgBox "Files are NOT identical", 16, "Info"
  34.         End If